perm filename J6[P11,LCS] blob sn#339423 filedate 1978-03-09 generic text, type T, neo UTF8
SRT←12800;
INS 0 1;<   INSTRUMENT 1 
OSC P4 P8 B4 F1 P30;
MLT P5 P6 B3;  
OSC B3 P8 B3 F2 P29;<RAMP
MLT P7 P6 B5;<P7 IS BASIC M.I., P5 = AMOUNT TO BE ADDED.    
AD2 B3 B5 B3;  
OSC B3 P6 B3 F3 P28;<MODULATOR, P6 CONVTS AS FREQ.(MOD. FREQ.)   
AD2 P3 B3 B3;<ADD IN CENTER FREQ.  
OSC B4 B3 B4 F3 P27;
OUT B4 B1;END;<         ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!  
GEN 0 1 1 .01 0 .99 25   
.99 400  0 511;<GEN INPUT MUST ALWAYS START NEW LINE!  
GEN 0 2 3 1 1;<F3 , 1 HARMONIC
GEN 0 3 2 0 1;<F2 PUTS LINE FROM 0 TO 1 IN 511 STEPS   
INSTRUMENTS;   
WUVV 1 8 FREQ 3 6   
ZUVV 1 8 FREQ 3 6   
XUVV 1 8 FREQ 3 6   
END; 
 
  < IN6  .SCR  --  RANDOM NUMBER=     1
 PLAY;
 WUVV      0.00      8.00 C/4     500.0  20.00 200.00   0.00
;PRINT P1;< WUVV    1
 ZUVV     4.00     11.00 E/4     500.0  10.00 100.00   0.00
;PRINT P1;< WUVV    1
 XUVV      7.00      4.00 GS/2    500.0  30.00 2000.00   0.00
;PRINT P1;< WUVV    1
 WUVV     11.00     1.00 A*2     500.0  10.00 200.00  10.00
;PRINT P1;< WUVV    2
 WUVV     12.00     1.00 F*4     500.0  10.00 200.00  10.00
;PRINT P1;< WUVV    2
 FINISH; < IN6  .SCR